home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aav.d64
/
car instruct
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
102 lines
10 PRINT"[147]"
20 POKE53280,6:POKE53272,(PEEK(53272)AND240)OR6
50 PRINT" [195][193][210] [195][200][193][211][197][160][208][204][193][217][201][206][199][160][201][206][211][212][210][213][195][212][201][207][206][211]
60 [153]
70 [153]"(null)ITH THIS GAME YOU ARE A DETECTIVE ON
80 PRINT"THE LOOKOUT FOR A CAR SEEN LEAVING THE
90 [153]"SCENE OF A CRIME. (null)OU MUST CHASE AFTER
100 PRINT"THE CAR UNTIL THE DRIVER GIVES UP AND
110 [153]"PULLS OVER.
120 PRINT
130 PRINT"[212]HE GAME IS LOADED WITH THE COMMANDS:
140 [153]
150 [153]"(null)(null)ATNSTR$"[199](34)"LENATN(null)CLOSELENLEFT$ATN(null)VAL"[199](34)",8"
160 [153]"(null)(null)(null)
170 PRINT
180 PRINT"[212]HE LEVEL OF DIFFICULTY CAN BE CHANGED
190 [153]"BY MOVING UP OR DOWN A JOYSTICK PLUGGED
200 PRINT"INTO PORT #2. [208]RESSING THE JOYSTICK
210 [153]"BUTTON STARTS THE GAME. (null)HE GAME CAN
220 PRINT"BE STOPPED AT ANY TIME BY PRESSING THE
230 [153]"(null)(null)(null)(null) KEY; IT CAN BE PAUSED BY
240 PRINT"DEPRESSING THE [211][200][201][198][212]-[204][207][195][203] KEY.
250 [141] 5000
260 [153]"(null)OU WILL BE DRIVING THE BLUE CAR. (null)HE
270 PRINT"SPEED OF THE CAR IS CONTROLLED BY
280 [153]"PUSHING FORWARD OR PULLING BACK THE
290 PRINT"JOYSTICK. [212]O STOP THE CAR HOLD DOWN
300 [153]"THE BUTTON.
310 PRINT
320 PRINT"[201]F THE CAR IS NEAR AN INTERSECTION THEN
330 [153]"PUSHING THE JOYSTICK LEFT OR RIGHT WILL
340 PRINT"MAKE THE CAR TURN ONTO THE INTERSECTING
350 [153]"STREET. (null)O TURN RIGHT YOU MUST HAVE
360 PRINT"THE JOYSTICK PUSHED RIGHT WHEN THE
370 [153]"FRONT OF THE CAR ENTERS THE RIGHT LANE
380 PRINT"OF THE INTERSECTING STREET; TO TURN
390 [153]"LEFT YOU MUST HAVE THE JOYSTICK PUSHED
400 PRINT"LEFT WHEN THE FRONT OF THE CAR ENTERS
410 [153]"THE LEFT LANE OF THE INTERSECTING
420 PRINT"STREET.
430 [153]
440 [153]"RIGHT$F THE CAR IS (null)(null)(null) NEAR AN INTERSECTION
450 PRINT"THEN PUSHING THE JOYSTICK LEFT OR RIGHT
460 [153]"WILL MAKE THE CAR CHANGE LANES; IF THE
470 PRINT"JOYSTICK IS PULLED BACK AND TO THE LEFT
480 [153]"THE CAR WILL MAKE A (null)-TURN.
490 GOSUB 5000
500 PRINT:POKE53272,(PEEK(53272)AND240)OR4
510 PRINT" HIGH
520 [153]" SPEED
525 PRINT
530 PRINT" ^
540 [153]" PEEK
550 PRINT" [144][213][195][195][195][201][154]
560 [153]" TURN LEFT STOPPEEK(null) STOPPEEKCONT TURN RIGHT
570 PRINT" OR <[195] [144][194] [209] [194][154] [195]> OR
580 [153]" CHANGE TO STOPPEEK PEEKCONT CHANGE TO
590 PRINT" LEFT LANE * [144][202][195][195][195][203][154] RIGHT LANE
600 [153]" (null) PEEK
610 PRINT" [173] [218]
620 [153]" U-TURN *
630 PRINT" LOW
640 [153]" SPEED
650 PRINT
660 PRINT" * NOT AT INTERSECTIONS
670 [153]
680 [141] 5000
690 [151]53272,([194](53272)[175]240)[176]6
700 [153]"(null)HE SUSPECT IS DRIVING THE PURPLE CAR.
710 PRINT"[201]F YOU CAN STAY CLOSE BEHIND THE
720 [153]"SUSPECT'S CAR HE WILL EVENTUALLY GIVE UP";
730 [153]"(AFTER ABOUT 3 MINUTES) AND PULL OVER
740 PRINT"TO THE SIDE OF THE STREET; A RATING OF
750 [153]"YOUR PERFORMANCE WILL THEN BE DISPLAYED.";
760 [153]"(null)HE LONGER YOUR CAR IS DIRECTLY BEHIND
770 PRINT"THE SUSPECT'S CAR AND THE CLOSER IT IS
780 [153]"TO HIS CAR THE HIGHER WILL BE YOUR
790 PRINT"RATING. [201]F YOU HAVE A WRECK THE GAME
795 [153]"IS STOPPED AND YOU GET NO RATING.
800 PRINT
802 PRINT" [210]ATING [208]ERFORMANCE
803 [153]" 0.000 - 0.999 (null)OOR
804 PRINT" 1.000 - 1.999 [198]AIR
805 [153]" 2.000 - 2.999 CHR$OOD
806 PRINT" 3.000 - 4.000 [199]REAT
809 [153]
810 [153]"LEFT$ELPFULL HINT: RIGHT$F YOU GET TOO FAR
820 PRINT"BEHIND THE SUSPECT'S CAR, TRY TO
830 [153]"ANTICIPATE WHERE HE WILL BE GOING AND
840 PRINT"TAKE A SHORTER ROUTE.
850 [141] 5000
855 [151]53272,([194](53272)[175]240)[176]4
860 [153]:[153]:[153]:[153]"LOAD"[199](34)"CAR CHASE"[199](34)",8"
870 [153]:[153]:[153]:[153]:[153]"RUN"
880 [153]""
4990 [128]
5000 [153]:[153]" (PRESS A KEY TO CONTINUE)"
5010 [161] K$: [139] K$[179][177]"" [137] 5010
5020 [161] K$: [139] K$[178]"" [137] 5020
5030 [153]"LOAD";
5040 [142]